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YWSOTINE PROGRAM FPAGE | LISTING PAGE ¢ 
* THIS IS A COPYRIGHTED PROGRAM. COPYRIGHT 1972 BY YARIAN DATA MACHINE 
¥ 
. ¥V.D.M. PART NO. 92L0705-014B 
* RELEASED O7 13273 
¥ 
* VSOTIME 
cd 
xe 
TITLE VSOTIM 
TRERECEECLCBLBECOCOSORCOEEARSESEARESECZAECGSSLOC£CCCEOCECOTOOOSSLSOOSSSSe SECS SEs 
ee TIDE SETUP ee 
“i , 
SESCRERET ECE EET CEE EEE EERE EERE RSE ERE EA EERE ER TH ETE TREE DEERE Se ERE Ee 
TETRD Eau i] TASK THREAD 
TEST EQU 1 TASK STATUS 
TEFL EQU c STATUS CONT. CEITSIS-e3-+PRIORITY LEVELCS=-9 
TEEVNT Eau 2 INTERRUPT EVENT 
TEKSA he al i A REENTRANT AND SUSPEND STACK 
TEESE EQU be BE REENTRANT AND SUSPEND STACK 
TERESX Eau 6, D4 REENTRANT AND SUSTPCEND STACK 
TpresP EGU , GF er REENTRAN, Sh SUSPILNGD STACK 
TeRsiS E@u 3 TENPF. STG. REENTRANT AND SUSPEND STACK 
TEENTY E@U 4 TASK ENTRY LOCATION 
TETAS Le id TIME SOURTER - CLOCK RESOLUTION IN SMS INE 
TBTININ EGU 11 TIME G§EUNTER - CLOCK MINUTE INCREMENTS 
TBISA EQU le A INTERRUFT STACK 
TEISB EQU 13 E INTERRUPT STACK 
TBISS EGU 14 Pf INTERRPUFT STACK 
TEISP ct OU ts OF .“P INTERRJUFT. STACK 
TEIERS ERY 16 ond: STACK INTERRUPT) STACK 
TEIO E OU i? BLY ALLODCC1S-i1G3,I1°0B THR(S-S2,T/O acté4-93 
TEER1I EQu 18 TAS RANE 
TEKNe eau iS TASK WARE 
TBENS - OU ef TASK NARNE 
TETLE Emu el i8T LOG. OF TASK ALLDCATABLE 
TBCFTH E@U cc BAMEGROUND TaZkK QUEUE 
TEASTEK EOYU eo: TIVRF LOC. OF ACTIVATING TASK 
TERSE Fau 24 TASK ERROR COLE 
FJe 
Kausewacks | cuendeneuanaiansswecesucasaewns eee SPE SOOO SCSSOSCSC ee L eee Se 
4 
5 TASK STATUS DESCRIPTION CBIT SET WORD {5 “+e 
¥ 
PRESSES AASSESLASCAOOLAAS ERLE RECRRESSLOOCLOLLOOCSASS SS EP SECC RR SCC CS OSS eee ee ea fs 
TBE15S Eau 15 INTERRUPT =USPENED 
TB214 Eeu 14 TASK SUSPEND 
TESis EQU iS TAF AEORT 
756312 EQuU 12 TASe« EXIT 
TE 11 ru 1 1 TIDE COPE FESIDENT 
TB210 EQU 1a CORE RESIBENT TAEK 
TEZ3 = Ou 9 UFCGROUND Task 
TES Ep a AZkK PROTECTETL 
TES? Feu f TASK ECHEDULED BY TIME DELAY 
TEESE . Eau 6 TIRE DELAY ACTIVE 
TB z3 Emu _ TAZE HAITING TO BE LOUADBED 
TB=4 EOL 4 TASK ERPOR 
TRES EBL 3 TASK INTERRUPT EXPECTED 
TEe Eau a. OVERLAY TAEE 
TBE! £OU I UPON TERMIMATION ACTIVATE fASK SCHED TREK 
TEBSO ae 2 C TATE SEAPCH-ALLOCATED-LOaADFI 
PREV CRC UTE RECA EERE ORES REC ET EEE EEO EE EEE ERE TREE EO REE OR EHR EE EEE 
¥ 
ed TeESK STOTUS DESCRIPTION <HIYT SET HORD @> ere 
* 
RRERERR ST VSS STH THK KRM FRERREC SC SK PS SECRET REE EEC RSS A EE ee eC ee Ree Te Te 
= Bir i% ~ TASK OQRFENET 
* SIT i4 = UNUSED 
* BIT 13 - OVERLAY LOAD 
¥ Sits iz ~ TAS ‘ WAITING FOR BACESROUND Tet I°D TH COMPLETE 
+ Ta LOGKEB-SutT YUANTIL ES If COMPLETE OR BIT 11 
* | t CALLOULATAPRLE tFAtCE A¥VeilLaBLhes 
= Birt li - DE ES THA? ALLOCeR TAS FLe SPATE TS AYALLAPLE: THY 
* AL ATING TeHitk AGAIN. GS¥vERRIGFD BI’ srt Ss 
+ EI IN STaAT'i= AGREE. 
> EYT 26 BACKSSOUND Ti l= BEING WEeRiTTE? GR OWE eer CIAT $F C 
* EIT 9 - TASK WAITING FBP A TIERFe fT COMT™T AVATLGPLE FoR 
* SCHEDULING. 
> Eit es 10 6 MUvoED 
EJEEC 
*FFBRERSF SCC SCERSESSEee Teer ere eT Se SAS Ke SSE SESE SEE BEY TH ST PSC HSS SHEE eH RRP SE CEE BEN 
- 
==X JB PROCESSOR LOW CORE CcCURTES: += 
SESE RRESC STF ECSEEFC FEF UTES SEC CeCe eC CP Ce ST SCE aE ee eae Te SESE re eee eee eee KR eee |e 
want; FQU ssn 
VEINAMN EDL ie ae) JCP “MOME 
YSLCNT ES LC UP +4 LI COUNT 
VEIJICFG ECL tlt eS JEP FLAGS 
ome EEE ag = LOAD AND SO FLAGS : 
* EI™ a = DUMP FLEeG LEeRhUuAe s,s CO SN TMP 
a Bei t 4 = DUMP FLOSS IF Lost AND sh 
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106 ™ BIT 9-5 = UNUSED | 01 0010 

ig? *™ | BIT 15-16 = BG EXTRA CORE BLOCKS TO ALLOC “Gi oid 

000056 A 133 VSBICi EQu LOUP +6 BIC INTERRUPT ADDRESS TABLE ¢iad WORDS>D 91 0010 
000070 A 110 YSDATE EQU LCJP+16 JCP DATE RECORD G1 0611 
000074 A iit VSFLCT EGU LCJUP+20 PERMINATE LINE COUNT G1 O011 
000075 A ii2 VSBGLB EQU LCJUP+21 JOP LIB KEY AND LU HO. <BACKGROUND LIBD O01 0011 
000076 A 113 VSCRDM EQU LCJP +22 CARD KEYPUNCH TYPE, O=026s 1=029 O61 0011 
Lid * BIT 0 = SYSTEM NOMINAL KEYFUNCH MODE. Oi 001: 

115 BIT 9 = CURRENT JOB KEYPUNCH MODE. 31 0011 

900077 A 178 ¥VSJCTM Sep LCUP+23 TEMP. STORAGE FOR /¢MEM BLOCK Oi odi1 
? EJE 01 O011 

11S BRERA TEREST K SERA CESK CREST RCAKSCEReCSEKC KER SEELCKKKRTK CSE SaS OL OG011 

119 ™ 3 01 0011 

120 «eee LOW CORE DESCRIPTION | emeY O1 0012 

lai | ; 91 ole 

122 ERE KERRASESSEKEC SSL RCA KKK SEARS CET ESSE S SSCS ERASE SKK EREKKRSEKREEN G1 O01e2 

oc0s0s A. 124 LC EQU acon Gi 9012 
oo0gas00 A i125 ¥SCTL EBU Ee CURRENT TASK TIDB LOCATION Ci 0012 
000301 A 126 VSCPL EQU LC+1 CURRENT PRIORITY LEVEL C1 0012 
go0oS02 A 127 VSCRS EQU LC+2 CURRENT REENTRANT STACK POINTER 01 0012 
000303 A i128 VESTB EQU LC+3 POINTER TO HIGHEST FRIORITY TIDB Ci 0012 
0003046 A 123 VSUTB EQU LO+4 POINTER TO UNUSED TASK TIDE 01 0012 
000305 A 130 VSFTVB EQU LC+5 POINTER TO NEXT ENTRY IN REENTRANT STACK vi 0013 
900306 A 131 VYSFLRS EQU LO+6 FIRST LOC. OF REENTRANT STACK 01 0012 
0900307 A 132 VSLRSK EQU LC+7 LAST LOC. OF REENTRANT STACK#+! 01 90013 
000319 A 4133 VESCKPT EQuU Lo+s CHECKPOINT FLAG 1=0Ns Q=O0FF G1 0012 
Q000311 A 134 VSDPCL EGU LC+9 Loc. OF TIDB FOR OPCOM TASK 0i 06012 
000312 A 135 VSLSAL EGU LC+10 LOC. OF TIDB FOR SYSTEM SAL TASK 01 0013 
0900313 A 136 VSLER EQU LC+11 LOC. OF TIDE FOR SYSTEM ERROR TASK 01 0013 
000314 A 137 VSTJCP EQU LC+12 Loc. OF TIDE FOR JOB CONTROL PROCESSOR TAS 0: 0013 
900315 A 138 VSBTB EQU 1C+13 LONc. OF CURRENT ACTIVE BACKGROUND TSK TIDB 01 0013 
9000316 A 133 YSLUP ERQU LO+14 Loc. OF 1ST UNPROTECTED WORD 91 0013 
000317 A 140 VSLLUP EGU LC+13 Loc. OF LAST UNPROTECTED WORD O01 on14 
Op02P0 A 141 VSIM Eau LC+16 INTERRUPT MASK (8 WORDS) 01 0014 
000336 & 142 VEMPM EQU LC+24 MEMORY PROTECT MASK (4 WORDS) 01 0014 
000834 A 143 ¥SCAM ERQU Lc+28 CORE ALLOCATION MASK ¢4 WORDS) 91 0014 
144 ™ EQU LC+32 UNUSED o1 0014 

000341 A i145 VESCRDR EQu LO+3 CORE RESIDENT BIRER TORS LOCATION O1 oid 
000342 A 146 VSTEGT EQU LC+34 TOP OF THREAD OF BG TSK WAITING TO BE ALLO 01 0014 
900343 A 147 VSTMS EU LC+35 TIME OF DAY IN 5 MILLISECOND INCREMENTS 91 0014 
000344 A 148 VSTMN EQU L(+36 TIME OF DAY IN MINUTE INCREMENTS J1 0014 
000345 A 149 YSLUNT EQ@uU LC+37 ADDR. OF LOGICAL UNIT NAME TABLE C1 0014 
000346 A 150 VSDPCF EQU {C+38 OPCOM LOCKOUT FLAG 01 0015 
000347 A i151 WSFGLE EQu LC+29 KEY AND LU NO. FOR FOREGROUND LIB 841 0015 
0003509 A 132 VSFREE EQu. LC+40 FREE RUNNING COUNTER INCR. IN MICROSECONDS Ci 0915 
000351 A 153 VSCTMS EQU LO+41 CLOCK RESOLUTION IN 5S MILLISECOND INCR. d1 0015 
C00352 A 154 VSSC¥ ECU . LC+42 CLOCK SELECTED COUNT VALUE (1 TO 40953 21 0015 
000353 9 155 ¥VSCKB EGU LC+43 BASIC CLOCK INTERRUPT RATE IN MICROSLCONDS 61 O15 
000354 A 156 VSCRM .EQU , Lo+4s ; CLICK RESOLUTION INCR. FOR 1 MINUTE. 01 0015 
000355 A 157 VENSTB Eau. LC+45 BASE ADDR. FOR DST BLOCK 61 0015 
000356 A 158 VSLIT EQU LO+46 LAST LOCATION OF DACKGROUNT LITERAL TABLE a1 0615 
159 ™ EqQu LC+47 UNUSED 81 9015 

000360 A 160 ¥SCTAD EQuU Lc+43 BASE ADDR. FOR CONTROLLER ADDR. TABLE 91 ONi6é 
800361 A 161 ¥SECTL EQU LC+49 CUNRENT CONTROLLER IN SCAN 01 0016 
000362 A 162 VENCTR EGU LO+30 NC. OF CONTROLLERS 9: 0016 
000362 A i163 VSFIMN EQU Lo+S1 EXTERNAL DEVICE ADDRESS TABLE FOR PIMS gc! 0016 
164 ™ .€8 WORDS DEFINED IN PIM NO ORDER? G1 0016 

165 ™ Fou LC+s3 UNUSED 01 on16 

166 * EQU Lo+606 UNUSED $1 0016 
000373 A 167 VSSLFG EGU LC+61 SAL TASK BUSY FLAG 1=BUSYs O=NOT BUSY Gi 00167 
900376 A 168 ¥YSERFG EQU Lo+62 ERROR TASK BUSY FLAG ia BUSYs Q=NOT EUSY 61 90188 
000377 A 169 VSJOP EBL LC+63 JCP OPERATING FLAG nt 90169 
eoo0400 A 170 ¥YSLUT1 ESuU ote 4> STAET LUN ADDR FOR JCPLOPCOM ASSIGMARLE Si 09172 
000401 A i171 VSLUT2 EGU LO+65 START LUN ADDR FOR UNASSIGNAPLE 0: 90171 
o004d02 A 172 VSLUTS Eau LO+66 START LUN ADDR FOR CPCOM Af SIGnNeBLe Di 60172 
000403 A 173 ¥SIMIN EGU LO+6?7 B27a7 - C6N0000CLSMYSCTMS)) 4 1 0: go1732 
174 ® EQU LC+#68 UNUSED 9: g0174 
i75 & EOU 'C+69 UNUSED Ni 00175 
176 *™ Eau LC+70 UNUSED O1 o0176 
i?77 ™ FOU LO+?7 UNUSED O01 HOLT? 
000416 A 178 ¥SIDA EGU Lt+7e2 If ? ALGORITHM | fi 90175 
000411 A 179 VSCKIT EQuU LO+/73 CLOCK INT. IN PIM BEFORE LucKOUT FLAG. 91 00173 
000412 A 180 VS5SCB Eau LC+74 ALL SYSTEM BRCKGROUND PROGRAMS AND JOP USE 01 00:85 
181 ™ THIS SYSTEM BUFFER TO READ DIRECTIVES AND 0: Obi: 
ise ™ SOURCE RECORDS IN. $1 O0182 
000412 A 182 VENOCR ESL LO+?5 OPCOM WILL READ CPERATOR KEY-i1N REQUESTS $1 071832 
164 ™ IN THIS BUFFER. IF JCP IS SET NOT ACTIVE 81 80184 
iss ™ AND A 1 DIRECTIVE IS INPUTED. OFCOM 6i G6185 

isé ™ WILL MOVE THE DIRECTIVE TO VSJCE BEFORE Oi oo186 
ig? * SCHEDULING JCP. $i 00187 
000414 A 188 VSBYVN EReuU LC+76 BOTTOM OF VORTEX NUCLEUS 41 00188 
000415 A 189 VSBFC EGU LC+77 TOF OF FG RES. AREA BUTIOM OF FG ELK COMM. g1 90159 
000416 A 190 VSTFC EGU LO+72 TOS OF FG BLK COMMSN-TOP OF VORTEX CORE. G1 001490 
i91 ™ EQU LC+79 UNUSED G1 o019: 
192 EJEC 01 00192 
LSS FRESCO SRERCTELSES EKSTRA SKC CKC KEK SSK KTS SEEK AAS KSS LESSEE eK FL aeiss 
i134 vi OF 294 
195 Mae MASK TABLE DESCRIPTION mee ET petee 
136 = ‘ia 91 90176 
197 KRERKRARKKKAK KEP SSSR TERE EK REESE SSK EHRCSRERERE TL REH EM OF ANLes 
go0042e A 199 MT SET o420 61 oo19% 
900420 A 200 ZERO feu MT ZERO WORD $1 00200 
000421 A #201 BSD EGY MT +1 BIT MASK CONTENTS oocon1 (1 o0eD; 
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341i ™ CHORPARE NAMES €¢ F MCN } * 9 
942 & , * 0 
943 ™ FUNCTION: TO COMPARE TWO 3-WORD FIELDS * v 
344 * x 9 
945 *® ENTRY: NO SPECIAL CONDITIONS * 0 
946 * * oO 
947 ® CALLING SEQUENGE : JSR FMCNs xX 7 * 0 
948 * DATA ADDRESS OF FIELD 1 * 0 
343 * DATA ADDRESS OF FIELD @ * 0 
950 ™ , * O 
951 " EXIT !: OVFL SET IF EQUAL», RESET IF NOT * Oo 
952 |e: 
3523 SEER EEE EES EERE EERE EEE EET EERE SEE EERE EEE EEE EEE S qo 
1105 024021 A 9355 FMCN1 LDB FMCNF 1 POINT B AT FIELD 1 0 
1106 634031 A 9356 LDX FMONF2 POINT X AT FIELD 2 0 
1107 606010 A 9357 LDAL 077775 if 
1110 0977775 A, i 
1111 0540308 A 9358 STA FMCNC SET LOOP COUNT TO -3 0 
1112 ¢15000 A 359 FMCNL LDA O»x COMPARE LOOP 0 
1113 146000 A 9369 SUB O58 0 
1114 pOo1nN16 A 961 JANZ FMCNX EQUAL ? 0 
1115 001127 R 
1116 OO0S5S1i44 A G62 IXR YES 0 
1117 o0S1i22 A 363 IBR CONTINUE COMPARE 0 
1120 007400 A 364 ROF 0 
1121 94402c¢ A 9365 INR FMCNC BUMP LOOP COUNT 0 
11@2 co1007 A 365 JOFN FMCNL FINISHED 7 0 
1183 001112 R | 
11824 007401 A 96? SOF | YES. SET OVFL TO FLAG EQUAL 0 
1125 001000 A 36S JMP® FMCNXX 0 
1126 101135 R 7 
1127 007400 A 9369 FMENX ROF : RESET OVFL TO FLAG NOT ESUAL 0 
1130 001000 A 979 JMNP* FMCNXX 0 
1131 101135 R | 
1132 074082 A 971 FMCN STH FMCNXX STORE EXIT 0 
1133 006505 A 972 JSR FMPTs% FER PRRAMETERS 0 
1134 004457 R 
1135 at 973 FMCNXX BSS 1 EXIT ADDRESS 0 
1136 o0c000e A 374 DATA 2 2 PARAMETERS 0 
L137 = 975 FMCNF1 BSS 1 ‘ ADDRESS OF FIELD 1 0 
1149 os $76 FMCNF2 BSS 1 ADDRESS OF FIELD @2 0) 
1141 001105 R 9377 DATA FMCNI 0 
1142 i FMCNC 25 i LooP COUNTER : 
97 EJ | 
980 BAERS SORES CERAM ESSE ESSERE SEES RS RSER SEK KR SSSR | 
981i = * 0 
g9s2 * PROCES §$ EREATECRF HGR 2 * oO 
93s ® | * f 
984 ® FUNCTION: TO ENTER A NEW FILE NAME IN THF BIRECTORY WITH A x ) 
9s5 ™ SPECIFIED RMD C120-WORDSRECORD COUNT SIZE. * ¢ 
986 # “ * ¢ 
937 ® , * 0 
98S ™ ENTRY? NO SPECIAL CONDITIONS * ( 
939 ™ * 0 
990 ™ CALLING SEQUENCE: JSR FMCR» x x 0 
991 ™ ~ DATA ADDRESS OF COMMAND BLOCK * ¢ 
992 ™ DATA ADDRESS OF DIRECTORY FCECFMCR LOADS IT> * 0 
993 ™ DATA O * 2 
994 ™ * oO 
995 ™ COMMAND BLOCK: WORD O: LOGICAL UNIT NUMBERCLUND * 1) 
996 ™ WORB it KEY * U 
997 ™ WORDS 2-4: FILE NAME * 0 
995 ™ WORD 3S: SECTOR: COUNT * 0 
$99 ™ WORD 6: ADDRESS UF FILE NAME FCRCFMCR LOADS THIS) * 0 
19000 ® O IF FILE NAME FC NOT TO BE LOAbdED ¥* ( 
iog1 ™ * 6 
1002 ™ EXIT =: A=0 IF NO ERRORS * 0 
1003 ™ * 0 
1004 ™ ERRORS: A=2 IF NAME ALREADY IN DIRECTIIRY * o 
i905 ™ A=4 IF INSUFFICIENT SPACE FOR ENTRY a) 
i006 * A=S IF I/70 ERROR * 
1007 *™ A=6 IF DIRECTORY STRUCTURE ERROR ¥ c 
— c 
anes FREAKS CECA KK RCTS KCC SSCS CET ERK SSK KCL HS CC 
1143 005901 A 1011 FMCRI TZA 
1144 054323 A 1012 STA FMCREF CLEAR ERROR FLAG 0 
1145 010422 A 1013 LDA THO | 5 
1146 954313 A 1014 “ $TA FMCRAA INITIALIZE NEXT AVAIL SECTOR TO 2 f 
LOLS KERRI KSEE 0 
1016 ™ GET FILE PARAMETERS ® 0 
LOL 7 SRR SERRE. 0 
1147 006505 A 1018 JSR FMF Ax MAKE FILE ACCESS/ZLOAD DIRECTORY FCB 0 
1150 Of 2433 R 
1151 101456 R 1019 MZE FMCRCB 0 
1152 101457 R 1020 MZE aid a 0 
1153 074320 A 1021 ST FMCRPB. SAVE ADDRESS DF POINTER BLOCK 
1154 001010 A 1022 JAZ ¥+ 5° ERROR ? 0 
1155 001161 R : 
1156 044311 A 1023 INR FMCREF YES» SET FLAG AND EXIT 0 
1157 00601000 A 1024 JIMP FMECRX2 E.i * 
1160 001437 R 
1161 014274 @ 1025 LDA FMCRCB H 
1162@ 1204e€2 A 1026 ADD THO: 0 
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—E.2 VORTEX LISTING SORT PROGRAM PAGE 3 LISTING PAGE ¢ 7925 


194 * MERGE PHASE WORK AREAS START HERE 00 90181 
iss * 6 2 
18& EEERERREKEEKEKCAREEE SAKE KCKKKEK KER KCKRAKKCKE KAKA KARTE KECKCEKAKREKKKK ERK S 00 00183 
L1E7 RASS RSSSAKSESESESEL ASSESSES SSSA SSE LS RSH ARERR See 090 dg0184 
iss ™ 090 00185 
189 *® SORT PHASE ROUTINES 06 00186 
190 ™ 60 00187 
191 * SRT1 - SORT PHASE PRIMARY CONTROL 06 90186 
192 ™ 00 00189 
195 SHAKERS SERRE RHE RK RKC RK ERR SEC KKRSEK CASK RAKE Ho ogo19dg 

0010 000000 A 1934 SRT1 ENTR G6 90191 

O011 002000 A 195 CALL SRIDs0 GET NEXT INPUT RECORD of 90192 

0012 0901056 R 

9913 000000 A | 

0014 006017 A 196 | LDAE ¥=1 PUT RETURN CODE IN THE A REGISTER of 00192 

0015 oo0013 R 

0016 006030 A. 197 LUXI SRTC GET SORT CONTROL TABLE ho 90194 

C017 ooocoD E 

o020 001016 A 198 Jaz SR1 A REG 0 MEANS INPUT RECORD AVAILABLE 60 900195 

0021 cogce? R 

ooz2 001002 A 1939 JAP EOF A REG POSITIVE MEANS END OF FILE ON INPUT 66 90196 

ones OON01LFE R 

0024 015221 A #09 LDA DSIsx GET PTR TO SURT INPUT FCB 0G 00197 

0025 001000 A 261 JMP ERR6 A REG NEGATIVE MEANS ERROR ON READ 09 O8133 

0026 000744 R 

0027 045000 A e202 SRi INR INPT» xX ADD 1 TO INPUT RECORD COUNT 90 90199 

0030 015260 A 203 SRe LDA SWCHs Xx GET SWITCH IN A REG 99 00200 

0031 150441 A 204 ANA ERO TURN OFF ACCEPT INPUT SWITCH 00 oo20% 

C032 055260 A 205 $Tq SUCHsX SAVE IT 60 90202 

OG633 006402 A e206 BT 2:USER GO TO USER RTN IF INPUT EXIT SWITCH ON 00 90203 

Cos4 oon006G4d R 

9035 045001 A 207 INR ACCP sx ADD 1 TO ACCEPTED INFUT RECORD COUNT oo o0204 

0036 025015 A 268 LDE INBF» X GET IN-BUFFE? ADDRESS G60 on205 

0037 065017 A 209 STE CMEF s xX MAKE IT THE CURRENT RECORD POINTER 90° 00206 

0040 015021 A 210 SR3 LDA SEND» X GET END OF SORT AREA ADIRESS 00 9020? 

0041 145022 A iil SUB SCUR» X MINUS NEXT AVSILABLE RECORD LOCATION a0 oogos 

0942 001002 A 212 JAP SR2A jo 00209 

0043 C0050 R 

0044 002004 A 213 Jann SFEO GO DETERMINE FILE FOR WRITING 60 00216 

0045 001001 R 

0046 ooz#000 A 214 JMPM SSEQ JUMP MINUS TO WRITE OUT THE COMPLETED SEQUENCEOD oGe11 

0047 001114 R 

0050 002000 A 215 SR3A JMPM SMOV GO MOVE THE RECORD TO THE SORT “REA 00 Coe1e 

0051 000573 R 

o052 015022 A 216 LDA SCURDX GET SORT AREA CURRENT PTR N09 o0213 

0053 125024 A 217 ADD MF LH» x INCREMENT BY INTERMEDIATE SORT RECORD SIZE 29 002164 

0054 055022 A 218 STA SCURSX . SAVE IT 30 90215 

0055 015260 A 213 LDA SWCH» X GET SWITCH IN A REG G0 06216 

0056 006403 A 220 BT 13sUSER TF INPUT EOF SW IS ON: CK FOR INSERTS G¢ 002i? 

1057 oo0064 F , 

C060 00640C A 221 Br COsSRE ‘IF ACCEPT INPUT SWITCH IS ON GO CHECK EXIT 99 00212 

0061 000030 R 

0062 001000 A 222 JMP SRTi+1 GO GET NEXT SGRT INPUT RECORD 09 oc219 

0963 000011 PR 

0064 005101 A #223 USER INCR i SET OPTION CODE 90 o02z26 

0965 054010 aA 224 STA USR1+4 DEFAULT TO 1 ~ ACCEPT INPUT 00 00283 

0066 015015 A 225 LBA iINEF s X GET SORT IN AREA PTR 09 obee? 

0067 054004 a 226 STR USRi+2 STORE IN CALL | 60 o0222 

cO70 015016 A 227 LBA OUBF sx GET SORT IN OUTPUT BUFFER PTR 60 coz24 

0071 054003 A 228 STA USR1+3 : 00 99225 

0072 002000 A 229 USR1 CALL MITis0s0s0 CALL USER INPUT EXIT ROUTINE cf 00226 

0073 000900 E 

0074 000000 A 

0075 oo00c00 A 

oo76 ooOOgnnr A 

IN77 HO6017 A e230 LDAE USRi+4 no o02er 

nion oono7e R | | 

C101 150464 A 2314 ANA THREE SELECT BITS 0 AND 1 OF RETURN CODE G2 agzes 

fi02 BO6057 A 232 STAE USRI+4 B02 90229 

0103 000076 FR | 

0104 006030 A 233 LOX SRTC PUT SORT TABLE AREA BACK IN INDEX 00 voeRse 

8105 oGooi7 & _ 

0106 015260 A 234 LIA SUCH» X PUT SWITCH IN A REG On o9e21 

0107 006156 A 235 ANAI Gi77774 P-1 TURN OFF ACCEPT INPLUT/OUTPUT SWITCHES oN oa232 

$110 i77774 A 

0111 006117 A 236 ORAE USR1i+4 SET EXIT RETURN COBE SWITCHES 6 ao0e32 

Giie 000076 RP 

$113 055260 A 237 STA SUCH» X SAVE THE SWITCH eo ooe34 

0114 006401 A 238 BT (1,UEX1 JUMP IF DUTPUT ACCEPTED (REC INSERTED) oo 00235 

0115 000125 R | 

$116 006483 G 239 BT f3.sSROT JUMP IF END OF FILE HAS BEEN REACHED p90 00236 

C117 000162 R 

9120 00646C A 240 BT 00sVEX2 JUMP IF INPUT RECORD accEPTEnD Co o0237 

$izi 000137 R , 

g122 045003 A 241 INR DLTDsX ADD 1 TO DELETED RECORD COUNT oo 00232 

5123 601990 a 242 JMP SRT1+1 | GO GET NEXT INPUT RECORD 00 969235 

gi24 ccool: R | | 

0125 045002 A 243 UEXI1 INR INSTsx ADD 1 TO INSERTED RECORD COUNT 03 oe249 

0126 925015 A 244 LDE DUPFs xX GET OUTPUT BUFFER ADBRESSS PTR 99 909241 

9127 0635017 A 245 STB CMS» x MAKE IT THE CURRENT BUFFER ADERESS PTR og 0242 

8139 006403 A #246 BT 92-SR3 IF EQF SWITCH IS ON-GO PUT RECORD IN SORT AREOO 00242 

AiBi oo0040 R | 

0132 006400 A 247 BT 0053R3 IF INPUT ACCEPTED GO PUT GUT RET IN SORT AREACH 00244 
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